10 PRINT""
20 REM: FUNKY MONKEY
30 POKE36869,240
40 PRINTCHR$(147)CHR$(28)TAB(97)"XXXX
50 [153][199](31)[163]23)"FUNKY MONKEY SPELLS     A WORD
60 PRINTTAB(23)"SOME ARE ONES YOU'VE    NEVER HEARD
70 [153][163]23)"BEAT HIM SPELLING       IF YOU CAN
80 PRINTTAB(23)"AND PUT BANANAS IN      YOUR PAN!
90 [153][199](28)[163]31)"XXXX
100 FORT=1TO2000:NEXT
110 POKE52,28:POKE56,28:CLR
120 FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT
130 READA:IFA<0THEN340
140 FORC=ATOA+7:READJ:POKEC,J:NEXT
150 GOTO130
160 DATA7512,0,0,0,0,0,1,10,22
170 DATA7528,0,31,32,64,128,0,0,1
180 DATA7392,0,128,64,32,32,32,64,128
190 DATA7168,18,18,18,19,11,7,3,15
200 DATA7504,31,127,255,255,221,8,0,0
210 DATA7408,0,128,192,192,192,192,128,224
220 DATA7384,18,34,34,35,19,18,10,6
230 DATA7400,102,102,127,129,20,20,0,0
240 DATA7656,144,144,136,136,144,80,96,64
250 DATA7648,2,2,2,1,1,0,0,0
260 DATA7664,129,66,60,24,1,194,60,0
270 DATA7544,64,64,64,128,0,0,0,0
280 DATA7416,255,255,255,255,255,255,255,255
290 DATA7488,255,255,0,0,0,0,0,0
300 DATA7448,32,112,63,31,31,15,15,7
310 DATA7456,0,0,255,255,255,255,255,255
320 DATA7464,0,0,252,254,254,252,248,240
330 DATA-1
340 P=1000:FS=0:YS=0:POKE36869,255
350 PRINTCHR$(147)CHR$(28)"_______"
360 FORT=1TO6:PRINT"_"SPC(5)"_":NEXT
370 PRINT"_______"
380 C$="+-\[157][157][157]@*^[157][157][157][]=[157][157][157]<>/"
390 PRINTCHR$(19)CHR$(144)TAB(46)C$
400 PRINTCHR$(19)TAB(52)"FUNKY MONKEY
410 [129]T[178]1[164]P:[130]
420 [153][163]9)"SPELLS...":[129]T[178]1[164]P:[130]
430 [141]660
440 [153][199](19)[199](31)[163]122)[199](C);
450 [141]660
460 [139]C[178]65[176]C[178]69[176]C[178]73[176]C[178]79[176]C[178]85[167]480
470 [137]450
480 [153][199](19)[163]123)[199](C);
490 [141]660
500 [153][199](19)[163]124)[199](C)
510 [153][199](19)[199](28)[163]144)"((("
520 [153][199](19)[199](144)[163]255)[163]155);
530 [153]"FUNKY HAS   YOU HAVE
540 PRINTCHR$(17)FSCHR$(158)"#$%"CHR$(144)"'S";
550 PRINTSPC(4)YSCHR$(158)"#$%"CHR$(144)"'S
560 [153][199](17)[199](144)[199](29)"1ST SCORE OF 10 WINS";
570 [153][199](145)
580 [153][199](19)[199](31)[163]244);
590 [153]"DID FUNKY SPELL A     REAL WORD?
600 PRINTTAB(24)CHR$(30)"PRESS Y OR N
610 [161]G$:[139]G$[178]""[167]610
620 [139]G$[178]"N"[167]680
630 [139]G$[178]"Y"[167]740:[137]610
640 [161]G$:[139]G$[178]""[167]640
650 [137]430
660 C[178][181]([187](.)[172]26)[170]65:[142]
670 [129]T[178]1[164]P:[130]:[142]
680 [141]870
690 [153][199](19)[199](31)[163]243);
700 [153]"CAN YOU MAKE A REAL   WORD OUT OF FUNKY'S?
710 GETG$:IFG$=""THEN710
720 IFG$<>"Y"ANDG$<>"N"THEN710
730 IFG$="Y"THEN880
740 GOSUB870
750 FS=FS+1:PRINTTAB(198)CHR$(144)FS
760 IFFS=10THEN1070
770 PRINTCHR$(19)CHR$(31)TAB(244);
780 PRINT"THEN FUNKY GETS A     BANANA!
790 P[178]2000:[141]670
800 [141]870
810 [153][199](19)[199](31)[163]244);
820 [153]"ARE YOU READY FOR     ANOTHER WORD?
830 GETG$:IFG$=""THEN830
840 IFG$<>"N"ANDG$<>"Y"THEN830
850 IFG$="N"THEN830
860 IFG$="Y"THENP=500:GOTO350
870 PRINTCHR$(19)TAB(242);:FORI=1TO44:PRINT" ";:NEXT:RETURN
880 GOSUB870
890 PRINTCHR$(19)CHR$(30)TAB(248)TAB(68)"PRESS RETURN
900 [153][199](19)[199](31)[163]244)
910 [133]"TYPE WORD";A$
920 [141]870
930 [153][199](19)[163]244)[163]68)[199](30)"PRESS Y OR N
940 PRINTCHR$(19)CHR$(31)TAB(244)"IS "A$" RIGHT?
950 [161]G$:[139]G$[178]""[167]950
960 [139]G$[179][177]"Y"[175]G$[179][177]"N"[167]950
970 [139]G$[178]"N"[167]740
980 [141]870
990 YS[178]YS[170]1:[153][163]210)[199](144)YS
1000 [141]870
1010 [139]YS[178]10[167]1050
1020 [153][199](19)[199](31)[163]244)"YOU GET A BANANA!
1030 P=2000:GOSUB670
1040 GOTO800
1050 PRINTCHR$(19)CHR$(31)TAB(248)"YOU WIN!
1060 [137]1100
1070 [141]870
1080 [153][199](19)[199](31)[163]246)"FUNKY WINS!"
1090 [137]1100
1100 [153][199](144):[129]J[178]1[164]12
1110 [153][199](19)[163]46)"   "[163]24)"   "[163]24)"   ";
1120 [153][163]24)"   "[163]24)"   "
1130 [153][199](19)[163]24)C$:[129]T[178]1[164]150:[130]
1140 [153][199](19)[163]24)"   "[163]24)"   ";
1150 [153][199](19)[163]24)"   "[163]24)"   "
1160 [153][199](19)[163]46)C$:[129]T[178]1[164]150:[130]:[130]
1170 [153]"    PLAY AGAIN?"
1180 [161]A$:[139]A$[178]""[167]1180
1190 [139]A$[178]"Y"[167][138]